home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / e / textps.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-06-24  |  34.2 KB  |  939 lines
  1. char *version = "0.995 18-Apr-93";
  2. char *copyright = "Copyright (C) 1991, 1993, Trustees of Columbia University";
  3. /*
  4.   textps - Convert plain text to Postscript.
  5.  
  6.   DESCRIPTION:
  7.     Converts text files to PostScript Courier-11, 66 lines to the page, 80
  8.     characters to the line.  Handles pagination, tabs, line wrap, overstruck
  9.     characters (via BS) and overstruck lines (via CR).  Swallows and ignores
  10.     (rather than printing) ANSI escape sequences.  If the input file is
  11.     already Postscript (i.e. if its first line starts with "%!"), it is simply
  12.     copied to the output without alteration.  No special effects like page
  13.     headings, landscape, 2-up, etc.
  14.  
  15.     Unlike other "enscriptors", textps handles 8-bit character sets.  The
  16.     default file character set is CP437 on PCs, the NeXT character set on the
  17.     NeXT, and ISO 8859-1 Latin Alphabet 1 elsewhere.  CP850, DEC MCS, and
  18.     Apple QuickDraw are also supported.  Override the default character set
  19.     with the -c command-line option.  Shift-In/Shift-Out codes within the text
  20.     are handled, so 8-bit characters can be encoded by ^N<char-128>^O in the
  21.     7-bit environment (e.g. e-mail) and still print correctly.
  22.  
  23.   USAGE:
  24.     textps [ -h ] [ -v ] [ -c charset ] < input > output
  25.  
  26.     The input file character set is translated from the default character set
  27.     or the one given on the command line to ISO Latin Alphabet 1, and the
  28.     result is converted to Level-1 Postscript.  The -h command line option
  29.     prints a help message and exits immediately.  The -v option includes a
  30.     page showing the textps and PostScript version numbers.  The -c option
  31.     specifies the file's character set; charset may be latin1, cp437, cp850,
  32.     decmcs, apple, or next.
  33.  
  34.     UNIX example:   textps < file | lpr
  35.     MS-DOS example: textps < file > prn
  36.  
  37.     Suggestion for use with DOS.  Make a batch file called PSPRINT.BAT:
  38.       @echo off
  39.       textps < %1 > prn
  40.  
  41.     This assumes PRN is a Postscript printer.  Works with both Postscript
  42.     and non-Postscript files.  Works with Novell CAPTURE.  In VMS, make a
  43.     DCL procedure similar to this batch file.  In UNIX, use this program
  44.     as a print filter (in /etc/printcap, or alias lpr='textps | lpr').
  45.  
  46.   ERRORS:
  47.     Returns status code of 0 on success, 1 on failure.
  48.     Only fails if it is invoked with invalid command line arguments,
  49.     in which case an error and usage message is printed on stderr.
  50.  
  51.   BUGS:
  52.     Not all the characters print on early model laserwriters or other very
  53.     old PostScript printers: broken bar, copyright, trade mark, not sign,
  54.     fractions, Y/y-acute and Icelandic Thorn/thorn and Eth/eth, etc.  This
  55.     is because these characters were not present in early PostScript releases.
  56.  
  57.     8-bit characters are translated into an internal character set, which is
  58.     ISO Latin Alphabet 1 with a few extensions, so any file characters that
  59.     don't don't appear in this character set, such as PC line- and box-
  60.     drawing characters, are approximated with characters like '+', '-', and
  61.     '|'.  Alphabetic or punctuation characters that have no equivalents in
  62.     Latin-1 are shown as '?'.
  63.  
  64.   TO BUILD:
  65.     Just compile it.  If compiled under DOS with Microsoft C (and probably
  66.     also under Xenix?), the default character set is CP437, on the NeXT
  67.     it's the NeXT character set, otherwise it's Latin-1.  On OS2, you might
  68.     have to include -DOS2 on the C-compiler command line.
  69.  
  70.     To build with a particular default character set, include -DCHARSET=x
  71.     on the cc command line, where x = 0 for Latin1, 1 for CP437, 2 for
  72.     CP850, 3 for NeXT, 4 for DEC MCS, 5 for Apple QuickDraw.
  73.  
  74.     To disable ANSI-escape-sequence elimination, add -DNOESCSEQ.
  75.  
  76.   UPDATES:
  77.     0.95 5 Aug 91 
  78.       Add L procedure to output n blank lines, and don't bother to output
  79.       blank lines after last text on page.
  80.     0.96 6 Aug 91
  81.       Make sure a file that starts with Ctrl-L still outputs the PostScript
  82.       prolog.
  83.     0.97 8 Aug 91
  84.       Totally rewrite so we don't have to use backspacefont, which doesn't
  85.       work if used too much.  This also allows backspace overstriking to work
  86.       across line wrap boundaries.
  87.     0.98 1 Oct 91
  88.       Fix a few translation table entries.
  89.     0.99 7 Oct 91
  90.       Fix the top and bottom margins so 66th line doesn't sometimes have
  91.       descenders cut off.
  92.     0.995 18 Apr 93
  93.       Fix output of already-PS files to not contain an unnecessary
  94.       bufferful of blanks.  Add #ifdef for default OS/2 character set.
  95.       Remove compiler complaint about buf in printf.
  96.       Reported by Darrel Hankerson at Auburn University.
  97.  
  98.   TO DO:
  99.     Add support for 7-bit national ISO 646 character sets so we can
  100.     print e-mail from Sweden, France, etc.
  101.  
  102.     Add support for Latin-2/CP852 East European character sets.
  103.  
  104.     Add support for different paper dimensions, e.g. European A4 Letter,
  105.     US Legal, etc.
  106.  
  107.     Incorporate CP437 font from pc2ps program?  (Box drawing chars, etc)
  108.  
  109.   Author: Frank da Cruz, Columbia University (fdc@columbia.edu), July 1991.
  110.   Acks:   For help with reencoding bugs: Bur Davis, Adobe.
  111.  
  112.   Copyright (C) 1985, 1993, Trustees of Columbia University in the City of New
  113.   York.  Permission is granted to any individual or institution to use this
  114.   software as long as it is not sold for profit.  This copyright notice must be
  115.   retained.  This software may not be included in commercial products without
  116.   written permission of Columbia University.
  117.  
  118. /* Defines and Includes... */
  119.  
  120.  
  121. #ifndef NOESCSEQ    /* Swallow ANSI escape and control sequences */
  122. #define ESCSEQ        /* unless -DNOESCSEQ given on cc command line. */
  123. #endif /* NOESCSEQ */
  124.  
  125. #define WIDTH 80    /* Portrait printer line width, characters */
  126. #define LENGTH 66    /* Portrait printer page length, lines */
  127.  
  128. /* Character set translations */
  129.  
  130. #define UNK '?'      /* What to translate an untranslatable character into */
  131. #define SP ' '                /* Space character */
  132. #define DEL 0177            /* DEL character */
  133.  
  134. /* Character set symbols */
  135.  
  136. #define LATIN1 0            /* ISO Latin Alphabet 1 */
  137. #define CP437  1            /* IBM code page 437 */
  138. #define CP850  2            /* IBM code page 850 */
  139. #define NEXT   3            /* NeXT character set */
  140. #define DECMCS 4            /* DEC multinational character set */
  141. #define APPLE  5            /* Apple QuickDraw character set */
  142.  
  143. /* Default character set depends on where we're being compiled. */
  144.  
  145. #ifdef __EMX__
  146. #ifndef OS2
  147. #define OS2
  148. #endif /* OS2 */
  149. #endif /* __EMX__ */
  150.  
  151. #ifndef CHARSET                /* If default not already defined */
  152. #ifdef MSDOS                /* Symbol predefined by Microsoft C */
  153. #define CHARSET CP437            /* Default character set for PCs */
  154. #else
  155. #ifdef OS2
  156. #define CHARSET CP850            /* A little more modern for OS/2 */
  157. #else
  158. #ifdef NeXT                /* Predefined by NeXT compiler */
  159. #define CHARSET NEXT
  160. #else
  161. #define CHARSET LATIN1            /* Default character set for others */
  162. #endif /* NeXT */
  163. #endif /* OS2 */
  164. #endif /* MSDOS */
  165. #endif /* CHARSET */
  166.  
  167. #include <stdio.h>            /* for EOF definition */
  168.  
  169. /*
  170.   Postscript Prolog, to be inserted at the beginning of the output file.
  171.   The %% Comments are to make the file conformant with Adobe's "Postscript 
  172.   File Structuring Conventions", which allow page-oriented operations in
  173.   Postscript previewers, page pickers, etc.
  174. */
  175. char *prolog[] = {            /* Standard prolog */
  176.     "%!PS-Adobe-1.0",            /* Works with Postscript 1.0 */
  177.     "%%Title: oofa",
  178.     "%%DocumentFonts: Courier CourierLatin1", 
  179.     "%%Creator: textps",
  180.     "%%Pages: (atend)",
  181.     "%%EndComments",
  182. /*
  183.   Postscript font reencoding.  The standard encoding does not have the
  184.   characters needed for Latin-1.
  185.  
  186.   Unfortunately, the font reencoding methods listed in the Postscript
  187.   Cookbook simply do not work with the Apple Laserwriter (even though they
  188.   did work with other Postscript devices).  The method described in the
  189.   Adobe PostScript Language Reference Manual (2nd Ed) to change from the
  190.   StandardEncoding vector to the ISOLatin1Encoding vector works only with
  191.   the LaserWriter-II, but not older LaserWriters.
  192.  
  193.   This method, suggested by Bur Davis at Adobe, works around the fact that
  194.   Courier was a "stroke font" in pre-version-47.0 Postscript, in which many of
  195.   the accented characters are composed from other characters (e.g. i-grave =
  196.   dotless i + grave).  It is probably not the most efficient possible solution
  197.   (an iterative method might be better), but it works.
  198. */
  199.     "/CourierLatin1 /Courier findfont dup dup maxlength dict begin",
  200.     "{",
  201.     "    1 index /FID ne { def } { pop pop } ifelse", 
  202.     "} forall",
  203.     "/Encoding exch 1 index get 256 array copy def", 
  204. /*
  205.   The following characters are added at the C1 positions 128-153, for printing
  206.   non-Latin1 character sets such as IBM code pages, DEC MCS, NeXT, etc.  Note
  207.   that we cannot use characters from the Symbol font.  Characters from
  208.   different fonts cannot be mixed.  Anyway, the Symbol font is not fixed-width.
  209. */
  210.     "Encoding 128 /quotesingle put",
  211.     "Encoding 129 /quotedblleft put",
  212.     "Encoding 131 /fi put",
  213.     "Encoding 132 /endash put",
  214.     "Encoding 133 /dagger put",
  215.     "Encoding 134 /periodcentered put",
  216.     "Encoding 135 /bullet put",
  217.     "Encoding 136 /quotesinglbase put",
  218.     "Encoding 137 /quotedblbase put",
  219.     "Encoding 138 /quotedblright put",
  220.     "Encoding 139 /ellipsis put",
  221.     "Encoding 140 /perthousand put",
  222.     "Encoding 141 /dotaccent put",
  223.     "Encoding 142 /hungarumlaut put",
  224.     "Encoding 143 /ogonek put",
  225.     "Encoding 144 /caron put",
  226.     "Encoding 145 /fl put",
  227.     "Encoding 146 /emdash put",
  228.     "Encoding 147 /Lslash put",
  229.     "Encoding 148 /OE put",
  230.     "Encoding 149 /lslash put",
  231.     "Encoding 150 /oe put",
  232.     "Encoding 151 /florin put",
  233.     "Encoding 152 /fraction put",
  234.     "Encoding 153 /daggerdbl put",
  235. /*
  236.   The following six characters are required for pre-47.0 PostScript versions,
  237.   which compose accented Courier characters by putting together the base
  238.   character and the accent.
  239. */
  240.     "Encoding 154 /dotlessi put",
  241.     "Encoding 155 /grave put",
  242.     "Encoding 156 /circumflex put",
  243.     "Encoding 157 /tilde put",
  244.     "Encoding 158 /breve put",
  245.     "Encoding 159 /ring put",
  246. /*
  247.   The remainder follow the normal ISO 8859-1 encoding.
  248. */
  249.     "Encoding 160 /space put",
  250.     "Encoding 161 /exclamdown put",
  251.     "Encoding 162 /cent put", 
  252.     "Encoding 163 /sterling put", 
  253.     "Encoding 164 /currency put", 
  254.     "Encoding 165 /yen put", 
  255.     "Encoding 166 /brokenbar put", 
  256.     "Encoding 167 /section put", 
  257.     "Encoding 168 /dieresis put", 
  258.     "Encoding 169 /copyright put", 
  259.     "Encoding 170 /ordfeminine put", 
  260.     "Encoding 171 /guillemotleft put", 
  261.     "Encoding 172 /logicalnot put", 
  262.     "Encoding 173 /hyphen put", 
  263.     "Encoding 174 /registered put", 
  264.     "Encoding 175 /macron put", 
  265.     "Encoding 176 /degree put", 
  266.     "Encoding 177 /plusminus put", 
  267.     "Encoding 178 /twosuperior put", 
  268.     "Encoding 179 /threesuperior put", 
  269.     "Encoding 180 /acute put", 
  270.     "Encoding 181 /mu put", 
  271.     "Encoding 182 /paragraph put", 
  272.     "Encoding 183 /bullet put", 
  273.     "Encoding 184 /cedilla put", 
  274.     "Encoding 185 /onesuperior put", 
  275.     "Encoding 186 /ordmasculine put", 
  276.     "Encoding 187 /guillemotright put", 
  277.     "Encoding 188 /onequarter put", 
  278.     "Encoding 189 /onehalf put", 
  279.     "Encoding 190 /threequarters put", 
  280.     "Encoding 191 /questiondown put", 
  281.     "Encoding 192 /Agrave put", 
  282.     "Encoding 193 /Aacute put", 
  283.     "Encoding 194 /Acircumflex put", 
  284.     "Encoding 195 /Atilde put", 
  285.     "Encoding 196 /Adieresis put", 
  286.     "Encoding 197 /Aring put", 
  287.     "Encoding 198 /AE put", 
  288.     "Encoding 199 /Ccedilla put", 
  289.     "Encoding 200 /Egrave put", 
  290.     "Encoding 201 /Eacute put", 
  291.     "Encoding 202 /Ecircumflex put", 
  292.     "Encoding 203 /Edieresis put", 
  293.     "Encoding 204 /Igrave put", 
  294.     "Encoding 205 /Iacute put", 
  295.     "Encoding 206 /Icircumflex put", 
  296.     "Encoding 207 /Idieresis put", 
  297.     "Encoding 208 /Eth put", 
  298.     "Encoding 209 /Ntilde put", 
  299.     "Encoding 210 /Ograve put", 
  300.     "Encoding 211 /Oacute put", 
  301.     "Encoding 212 /Ocircumflex put", 
  302.     "Encoding 213 /Otilde put", 
  303.     "Encoding 214 /Odieresis put", 
  304.     "Encoding 215 /multiply put", 
  305.     "Encoding 216 /Oslash put", 
  306.     "Encoding 217 /Ugrave put", 
  307.     "Encoding 218 /Uacute put", 
  308.     "Encoding 219 /Ucircumflex put", 
  309.     "Encoding 220 /Udieresis put", 
  310.     "Encoding 221 /Yacute put", 
  311.     "Encoding 222 /Thorn put", 
  312.     "Encoding 223 /germandbls put", 
  313.     "Encoding 224 /agrave put", 
  314.     "Encoding 225 /aacute put", 
  315.     "Encoding 226 /acircumflex put", 
  316.     "Encoding 227 /atilde put", 
  317.     "Encoding 228 /adieresis put", 
  318.     "Encoding 229 /aring put", 
  319.     "Encoding 230 /ae put", 
  320.     "Encoding 231 /ccedilla put", 
  321.     "Encoding 232 /egrave put", 
  322.     "Encoding 233 /eacute put", 
  323.     "Encoding 234 /ecircumflex put", 
  324.     "Encoding 235 /edieresis put", 
  325.     "Encoding 236 /igrave put", 
  326.     "Encoding 237 /iacute put", 
  327.     "Encoding 238 /icircumflex put", 
  328.     "Encoding 239 /idieresis put", 
  329.     "Encoding 240 /eth put", 
  330.     "Encoding 241 /ntilde put", 
  331.     "Encoding 242 /ograve put", 
  332.     "Encoding 243 /oacute put", 
  333.     "Encoding 244 /ocircumflex put", 
  334.     "Encoding 245 /otilde put", 
  335.     "Encoding 246 /odieresis put", 
  336.     "Encoding 247 /divide put", 
  337.     "Encoding 248 /oslash put", 
  338.     "Encoding 249 /ugrave put", 
  339.     "Encoding 250 /uacute put", 
  340.     "Encoding 251 /ucircumflex put", 
  341.     "Encoding 252 /udieresis put", 
  342.     "Encoding 253 /yacute put", 
  343.     "Encoding 254 /thorn put", 
  344.     "Encoding 255 /ydieresis put", 
  345.     "currentdict end definefont", 
  346. /*
  347.   Set the font and define functions for adding lines and printing pages.
  348. */
  349.     "/CourierLatin1 findfont 11 scalefont setfont",
  350.     "/StartPage{/sv save def 48 765 moveto}def",
  351.     "/ld -11.4 def",            /* Line spacing */
  352.     "/yline 765 def",            /* Position of top line */
  353.     "/U{show",                /* Show line, don't advance */
  354.     "  48 yline moveto}def",
  355.     "/S{show",                /* Show line, move to next line */
  356.     "  /yline yline ld add def",
  357.     "  48 yline moveto}def",
  358.     "/L{ld mul yline add /yline exch def", /* Move down n lines  */
  359.     "  48 yline moveto}def",
  360.     "/EndPage{showpage sv restore}def",
  361.     "%%EndProlog",            /* End of prolog. */
  362.     "%%Page: 1 1",            /* Number the first page. */
  363.     "StartPage",            /* And start it. */
  364.     ""                    /* Empty string = end of array. */
  365. };
  366.  
  367. /*
  368.   Translation tables from local character sets into CourierLatin1.
  369. */
  370.  
  371. /*
  372.   IBM Code Page 437.  Line- and box-drawing characters are simulated with
  373.   dashes, bars, and plus signs.  Black and gray blobs (fill characters)
  374.   are replaced by X's.  Peseta is shown as P.  Greek letters that don't
  375.   exist in CourierLatin1 are shown as ?.  Untranslatable math symbols are
  376.   shown as ?.
  377. */
  378. unsigned char
  379. y43l1[] = {
  380.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  381.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  382.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  383.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  384.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  385.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  386.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  387. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  388. 199, 252, 233, 226, 228, 224, 229, 231, 234, 235, 232, 239, 238, 236, 196, 197,
  389. 201, 230, 198, 244, 246, 242, 251, 249, 255, 214, 220, 162, 163, 165, 'P', 151,
  390. 225, 237, 243, 250, 241, 209, 170, 186, 191, '+', 172, 189, 188, 161, 171, 187,
  391. 'X', 'X', 'X', '|', '+', '+', '+', '+', '+', '+', '|', '+', '+', '+', '+', '+',
  392. '+', '+', '+', '+', '-', '+', '+', '+', '+', '+', '+', '+', '+', '-', '+', '+',
  393. '+', '+', '+', '+', '+', '+', '+', '+', '+', '+', '+', 'X', 'X', 'X', 'X', 'X',
  394. UNK, 223, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK, UNK,
  395. UNK, 177, UNK, UNK, UNK, UNK, UNK, UNK, 176, 134, 135, UNK, 'n', 178, 'X', 160
  396. };
  397.  
  398. /*
  399.   IBM Code Page 850.  Line- and box-drawing characters are simulated with 
  400.   dashes, bars, and plus signs.  Black blobs are replaced by X's.
  401. */
  402. unsigned char
  403. y85l1[] = {
  404.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  405.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  406.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  407.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  408.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  409.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  410.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  411. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  412. 199, 252, 233, 226, 228, 224, 229, 231, 234, 235, 232, 239, 238, 236, 196, 197,
  413. 201, 230, 198, 244, 246, 242, 251, 249, 255, 214, 220, 248, 163, 216, 215, 151,
  414. 225, 237, 243, 250, 241, 209, 170, 186, 191, 174, 172, 189, 188, 161, 171, 187,
  415. 'X', 'X', 'X', '|', '+', 193, 194, 192, 169, '+', '|', '+', '+', 162, 165, '+',
  416. '+', '+', '+', '+', '-', '+', 227, 195, '+', '+', '+', '+', '+', '-', '+', 164,
  417. 240, 208, 202, 203, 200, 154, 205, 206, 207, '+', '+', 'X', 'X', 166, 204, 'X',
  418. 211, 223, 212, 210, 245, 213, 181, 254, 222, 218, 219, 217, 253, 221, 175, 180,
  419. 173, 177, '=', 190, 182, 167, 247, 184, 176, 168, 134, 185, 179, 178, 'X', 160
  420. };
  421.  
  422. /*
  423.   NeXT character set.  Here we have a full translation.
  424. */
  425. unsigned char
  426. ynel1[] = {
  427.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  428.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  429.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  430.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  431.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  432.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  433.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  434. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  435. 160, 192, 193, 194, 195, 196, 197, 199, 200, 201, 202, 203, 204, 205, 206, 207,
  436. 208, 209, 210, 211, 212, 213, 214, 217, 218, 219, 220, 221, 222, 181, 215, 247,
  437. 169, 161, 162, 163, 152, 165, 151, 167, 164, 128, 129, 171, '<', '>', 131, 145,
  438. 174, 132, 133, 153, 134, 166, 182, 135, 136, 137, 138, 187, 139, 140, 172, 191,
  439. 185,  96, 180,  94, 126, 175, 158, 141, 168, 178, 176, 184, 179, 142, 143, 144,
  440. 146, 177, 188, 189, 190, 224, 225, 226, 227, 228, 229, 231, 232, 233, 234, 235,
  441. 236, 198, 237, 170, 238, 239, 240, 241, 147, 216, 148, 186, 242, 243, 244, 245,
  442. 246, 230, 249, 250, 251, 154, 252, 253, 149, 248, 150, 223, 254, 255, ' ', ' '
  443. };
  444.  
  445. /*
  446.   DEC Multinational Character Set (MCS).
  447. */
  448. unsigned char
  449. ydml1[] = {
  450.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  451.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  452.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  453.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  454.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  455.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  456.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  457. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  458. 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
  459. 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  460. 160, 161, 162, 163, ' ', 165, ' ', 167, 164, 169, 170, 171, ' ', ' ', ' ', ' ',
  461. 176, 177, 178, 179, ' ', 181, 182, 134, ' ', 185, 186, 187, 188, 189, ' ', 191,
  462. 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
  463. ' ', 209, 210, 211, 212, 213, 214, 148, 216, 217, 218, 219, 220, 221, ' ', 223,
  464. 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
  465. ' ', 241, 242, 243, 244, 245, 246, 150, 248, 249, 250, 251, 252, 255, ' ', ' ',
  466. };
  467.  
  468. /*
  469.   Apple QuickDraw character set.
  470. */
  471. unsigned char
  472. yaql1[] = {
  473.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  474.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  475.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  476.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  477.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  478.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  479.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  480. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  481. 196, 197, 199, 201, 209, 214, 220, 225, 224, 226, 228, 227, 229, 231, 233, 232,
  482. 234, 235, 237, 236, 238, 239, 241, 243, 242, 244, 246, 245, 250, 249, 251, 252,
  483. 133, 176, 162, 163, 167, 135, 182, 223, 174, 169, UNK, 180, 168, UNK, 198, 216,
  484. UNK, 177, UNK, UNK, 165, 181, UNK, UNK, UNK, UNK, UNK, 170, 186, UNK, 230, 248,
  485. 191, 161, 172, UNK, 151, UNK, UNK, 171, 187, 139, ' ', 193, 195, 213, 148, 150,
  486. 132, 146, 129, 138,  47,  47, 247, UNK, 255, UNK, 152, 164, '<', '>', 131, 145,
  487. 153, 134, 136, 137, 140, 194, 202, 192, 203, 200, 205, 206, 207, 204, 211, 212,
  488. UNK, 210, 218, 219, 217, 154, 156, 157, 175, 158, 141, 176, 184, 142, 143, 144
  489. };
  490.  
  491. /*
  492.   Data structures and functions for parsing and displaying character set name.
  493. */
  494. struct keytab {                /* Keyword table template */
  495.     char *kwd;                /* Pointer to keyword string */
  496.     int kwval;                /* Associated value */
  497. };
  498.  
  499. struct keytab csets[] = {        /* Character sets, alphabetical */
  500.     "apple",   APPLE,            /* Apple QuickDraw */
  501.     "cp437",   CP437,            /* IBM Code Page 437 */
  502.     "cp850",   CP850,            /* IBM Code Page 850 */
  503.     "decmcs",  DECMCS,            /* DEC Multinational Character Set */
  504.     "latin1",  LATIN1,            /* ISO 8859-1 Latin Alphabet 1 */
  505.     "next",    NEXT            /* NeXT character set */
  506. };
  507. int ncsets = (sizeof(csets) / sizeof(struct keytab));
  508.  
  509. int
  510. lower(s) char *s; {            /* Lowercase the string */
  511.     int n = 0;                /* return its length */
  512.     while (*s) {
  513.     if (*s >= 'A' && *s <= 'Z')
  514.       *s += ('A' - 'a');
  515.         s++, n++;
  516.     }
  517.     return(n);
  518. }
  519.  
  520. /* Look up keyword, return value */
  521.  
  522. int
  523. lookup(table,cmd,n,x) char *cmd; struct keytab table[]; int n, *x; {
  524.  
  525.     int i, v, cmdlen;
  526.  
  527. /* Lowercase & get length of target, if it's null return code -3. */
  528.  
  529.     if ((((cmdlen = lower(cmd))) == 0) || (n < 1)) return(-3);
  530.  
  531. /* Not null, look it up */
  532.  
  533.     for (i = 0; i < n-1; i++) {
  534.         if (!strcmp(table[i].kwd,cmd) ||
  535.            ((v = !strncmp(table[i].kwd,cmd,cmdlen)) &&
  536.              strncmp(table[i+1].kwd,cmd,cmdlen))) {
  537.                 *x = i;
  538.                 return(table[i].kwval);
  539.              }
  540.         if (v) return(-2);
  541.     }   
  542.  
  543. /* Last (or only) element */
  544.  
  545.     if (!strncmp(table[n-1].kwd,cmd,cmdlen)) {
  546.         *x = n-1;
  547.         return(table[n-1].kwval);
  548.     } else return(-1);
  549. }
  550.  
  551. /* Look up value, return keyword */
  552.  
  553. char *
  554. getname(x,table,n) int x, n; struct keytab table[]; {
  555.     int i;
  556.     for (i = 0; i < n; i++)
  557.       if (table[i].kwval == x)
  558.     return(table[i].kwd);
  559.     return("");
  560. }
  561.  
  562. /* Global data */
  563.  
  564. int charset = CHARSET,            /* Character set */
  565.   hpos = 0,                /* Character number in line buffer */
  566.   maxhpos = 0,                /* Longest line in buffer */
  567.   page = 0,                /* Page number */
  568.   line = 0,                /* Line number */
  569.   blank = 0,                /* Blank line count */
  570.   pagefull = 0,                /* Flag for page overflow */
  571.   psflag = 0,                /* Flag for file already postscript */
  572.   proflg = 0,                /* Prolog done */
  573.   shift = 0;                /* Shift state */
  574.  
  575. /* Data structures */
  576.  
  577. /*
  578.   buf is the line buffer.  columns (indexed by hpos) are the characters
  579.   in the line, rows are overstruck lines.  At display time (see addline),
  580.   buf is treated as a 3-dimensional array, with the extra dimension being
  581.   for wraparound.  The total size of the buffer is 80 chars per line times
  582.   66 lines per page times 10 levels of overstriking = 52,800.  This allows
  583.   files that contain absolutely no linefeeds to still print correctly.
  584. */
  585. #define BUFNUM 10            /* Number of overstrike buffers */
  586. #define BUFWID 5280            /* Max characters per line */
  587.  
  588. unsigned char buf[BUFNUM][BUFWID];    /* Line buffers */
  589. unsigned char outbuf[400];        /* Output buffer */
  590. int linesize[BUFNUM];            /* Size of each line in buffer */
  591. int bufs[LENGTH];            /* # overstrike buffers per line */
  592.  
  593. /* Line and page display routines */
  594.  
  595. /* Forward declarations */
  596.  
  597. void addline();                /* Add line to page */
  598. void addchar();                /* Add character to line */
  599. void newpage();                /* New page */
  600. void usage();                /* Usage message */
  601.  
  602. void
  603. clearbuf() {                /* Clear line buffer */
  604.     int i;
  605.     unsigned char *p, *q;
  606. /*
  607.   Note: if a loop is used instead of memset, this program runs
  608.   very slooooooowly.
  609. */
  610.     memset(buf,SP,BUFNUM * BUFWID);    /* Clear buffers and counts */
  611.     for (i = 0; i < BUFNUM; linesize[i++] = -1) ;
  612.     for (i = 0; i < LENGTH; bufs[i++] = 0) ;
  613.     hpos = 0;                /* Reset line buffer pointer */
  614.     maxhpos = 0;            /* And maximum line length */
  615. }
  616.  
  617. void
  618. doprolog() {                /* Output the PostScript prolog */
  619.     int i;
  620.     for (i = 0; *prolog[i]; i++) {
  621.     printf("%s\n",prolog[i]);
  622.     proflg++;
  623.     }
  624. }
  625.  
  626. void
  627. addchar(c) unsigned char c; {        /* Add character to line buffer */
  628.     int i, m;
  629.     
  630.     if (c < SP || c == DEL) c = SP;    /* ASCII controls become spaces. */
  631.  
  632.     if (c > 127) {            /* 8-bit values are translated */
  633.     switch (charset) {        /* according to character set. */
  634.       case LATIN1:
  635.         if (c > 127 && c < 161)    /* C1 characters are controls */
  636.           c = SP;            /* in Latin-1. */
  637.         break;
  638.       case CP437:  c = y43l1[c]; break;
  639.       case CP850:  c = y85l1[c]; break;
  640.       case NEXT:   c = ynel1[c]; break;
  641.       case DECMCS: c = ydml1[c]; break;
  642.       case APPLE:  c = yaql1[c]; break;
  643.     }
  644.     }
  645.     for (i = 0; i < BUFNUM; i++) {    /* Find first */
  646.     if (hpos > linesize[i]) {    /* available overstrike buffer */
  647.         buf[i][hpos] = c;        /* Deposit character */
  648.         linesize[i] = hpos;        /* Remember size of this buffer. */
  649.         m = hpos / WIDTH;        /* Line-wrap segment number. */
  650.         if (i > bufs[m]) bufs[m] = i; /* Highest overstrike buffer used */
  651.         break;            /*   for this line-wrap segment. */
  652.     }
  653.     }
  654.     if (hpos > maxhpos) maxhpos = hpos;    /* Remember maximum line position. */
  655.     if (++hpos >= BUFWID)        /* Increment line position. */
  656.       addline();            /* If buffer full, dump it. */
  657. }
  658.  
  659. void
  660. addline() {                /* Add a line to the current page */
  661.     int i, j, k, m, n, y, wraps;
  662.     unsigned char *p, *q, c;
  663.  
  664.     if (line == 0 && page == 1) {    /* First line of file? */
  665.     if (!strncmp(buf,"%!",2)) {    /* Already Postscript? */
  666.         unsigned char * t;        /* Yes, just copy the file */
  667.         psflag++;            /* Set this flag to remember. */
  668.         t = buf[0] + hpos;        /* Trim trailing blanks */
  669.         *t = '\0';
  670.         printf("%s\n",buf[0]);    /* Send this line to stdout */
  671.         return;
  672.     } else if (!proflg) {        /* Not Postscript, print prolog. */
  673.         doprolog();
  674.     }
  675.     }
  676.     if (linesize[0] < 0) {        /* If line is empty, */
  677.     blank++;            /* just count it. */
  678.     return;
  679.     }
  680.     if (blank > 0) {            /* Any previous blank lines? */
  681.     if (blank == 1)            /* One */
  682.       printf("()S\n");
  683.     else                /* Many */
  684.       printf("%d L\n",blank);
  685.     }
  686.     line += blank;            /* Count the blank lines */
  687.     blank = 0;                /* Reset blank line counter */
  688.  
  689.     wraps = maxhpos / WIDTH;        /* Number of times line will wrap */
  690.     if (wraps > LENGTH) wraps = LENGTH;    /* (within reason) */
  691.  
  692.     for (k = 0; k <= wraps; k++) {    /* For each wrapped line */
  693.     m = k * WIDTH;            /* Starting position in buffer */
  694.     for (i = 0; i <= bufs[k]; i++) { /* For each overstrike buffer */
  695.         y = linesize[i] + 1;    /* Actual character count */
  696.         if (y <= m)            /* Nothing there, next buffer. */
  697.           continue;
  698.         /* Ending position of this wrap region in buffer. */
  699.         n = (y < m + WIDTH) ? y : m + WIDTH;
  700.         q = outbuf;
  701.         *q++ = '(';            /* Start text arg */
  702.         for (j = m, p = buf[i]+m; j < n; j++) { /* For each character */
  703.         c = *p++;
  704.         if (c == '(' || c == ')' || c =='\\') /* Quote specials */
  705.           *q++ = '\\';        /*  with backslash. */
  706.         if ((int) c < 128)    /* Insert 7-bit character literally */
  707.           *q++ = c;
  708.         else {            /* Insert 8-bit character */
  709.             *q++ = '\\';    /* as octal backslash escape */
  710.             *q++ = (c >> 6) + '0'; /* (this avoids call to sprintf) */
  711.             *q++ = ((c >> 3) & 07) + '0';
  712.             *q++ = (c & 07) + '0';
  713.         }
  714.         }
  715.         *q = '\0';
  716.         printf("%s%s",outbuf, (i == bufs[k]) ? ")S\n" : ")U\n");
  717.     }
  718.     }
  719.     clearbuf();                /* Clear line buffer */
  720.     line += wraps + 1;            /* Increment line number */
  721.     if (line > (LENGTH - 1)) {        /* If page is full */
  722.     newpage();            /* print it and start new one */
  723.     pagefull = 1;
  724.     }
  725. }
  726.  
  727. void
  728. newpage() {                /* Print current page, start new one */
  729.     if (pagefull) {            /* If we just overflowed onto a */
  730.     pagefull = 0;            /* new page, but then got a formfeed */
  731.     return;                /* immediately after... */
  732.     }
  733.     if (!proflg)            /* Do prolog if not done already */
  734.       doprolog();            /*  (in case file starts with ^L) */
  735.     if (hpos)                /* Add any partial line */
  736.       addline();
  737.     line = hpos = 0;            /* Reset line, advance page */
  738.     page++;
  739.     printf("EndPage\n%%%%Page: %d %d\nStartPage\n",page,page);
  740.     blank = 0;
  741. }
  742.  
  743. void            /* Show program & PostScript version numbers */
  744. showver() {
  745.     printf("%%!\n/Courier findfont 11 scalefont setfont\n");
  746.     printf("/EndPage{version (PostScript version )\n");
  747.     printf("48 720 moveto show show showpage sv restore}def\n");
  748.     printf("/sv save def 48 740 moveto\n");
  749.     printf("(textps version %s) show\n",version);
  750.     printf("/sv save def 48 700 moveto\n");
  751.     printf("(textps %s) show\n",copyright);
  752.     printf("EndPage\n");
  753. }
  754.  
  755. /* Main program */
  756.  
  757. void
  758. main(argc, argv) int argc; char *argv[]; {
  759.  
  760.     int i, j,                /* Worker ints */
  761.       escape;                /* Flag when Esc seen. */
  762.     unsigned char c;            /* Input character */
  763.  
  764.     while (--argc > 0) {        /* argv/argc "User interface"... */
  765.     argv++;
  766.     if (**argv == '-') {        /* Look for '-' */
  767.         c = *(*argv+1);        /* Get option letter */
  768.         switch (c) {
  769.           case 'h': case 'H': case '?': /* Help */
  770.         usage(-1);
  771.           case 'c': case 'C':    /* Character set */
  772.         argv++, argc--;
  773.         if (argc < 1) usage(4);
  774.         i = lookup(csets,*argv,ncsets,&j);
  775.         if (i < 0) usage(-i);
  776.         charset = i;
  777.         break;
  778.           case 'v': case 'V':    /* Show version numbers */
  779.         showver();
  780.         break;
  781.           default:
  782.         usage(5);
  783.         }
  784.     } else {            /* Options must begin with '-' */
  785.         usage(0);
  786.     }
  787.     }
  788.     hpos = line = psflag = 0;        /* Initialize these... */ 
  789.     escape = blank = 0;
  790.     page = 1;
  791.  
  792.     clearbuf();                /* Clear line buffer. */
  793.  
  794.     while ((i = getchar()) != EOF) {    /* Read a file character */
  795.     c = i;                /* Convert to unsigned char */
  796.     if (psflag) {            /* File already postscript? */
  797.         putchar(c);            /* Just copy the bytes. */
  798.         continue;
  799.     }
  800. #ifdef ESCSEQ
  801.     if (escape) {            /* Swallow ANSI escape sequences */
  802.         switch (escape) {
  803.           case 1:            /* ESC */
  804.         if (c < 040 || c > 057) /* Not intermediate character */
  805.           escape = 0;
  806.         continue;
  807.           case 2:            /* CSI */
  808.         if (c < 040 || c > 077)    /* Not parameter or intermediate */
  809.           escape = 0;
  810.         continue;
  811.           default:            /* Bad escape value, */
  812.         escape = 0;        /* shouldn't happen. */
  813.         break;
  814.         }
  815.     }
  816. #endif /* ESCSEQ */
  817.  
  818.     if (shift && c > 31 && c < 127) 
  819.       c |= 0200;            /* Handle shift state. */
  820.  
  821.     if (pagefull && c != 014)    /* Spurious blank page suppression */
  822.       pagefull = 0;
  823.  
  824.     switch (c) {            /* Handle the input character */
  825.  
  826.       case 010:            /* Backspace */
  827.         hpos--;
  828.         if (hpos < 0) hpos = 0;
  829.         continue;
  830.  
  831.       case 011:             /* Tab */
  832.         hpos = (hpos | 7) + 1;
  833.         continue;
  834.  
  835.       case 012:            /* Linefeed */
  836.         addline();            /* Add the line to the page */
  837.         continue;
  838.  
  839.       case 014:            /* Formfeed */
  840.         newpage();            /* Print current page */
  841.         continue;
  842.  
  843.       case 015:            /* Carriage return */
  844.         hpos = 0;            /* Back to left margin */
  845.         continue;
  846.  
  847.       case 016:            /* Shift-Out */
  848.         shift = 1;            /* Set shift state */
  849.         continue;
  850.  
  851.       case 017:            /* Shift-In */
  852.         shift = 0;            /* Reset shift state */
  853.         continue;
  854.  
  855. #ifdef ESCSEQ                /* Swallow ANSI escape sequences */
  856. /*
  857.   1 = ANSI escape sequence
  858.   2 = ANSI control sequence
  859. */
  860.       case 033:            /* ESC or 7-bit CSI */
  861.         escape = ((c = getchar()) == 0133) ? 2 : 1;
  862.         if (c != 033 && c != 0133 && c != 233) /* Not ANSI after all */
  863.           ungetc(c,stdin);        /* put it back, avoid loops */
  864.         continue;
  865.  
  866.       case 0233:            /* 8-bit CSI */
  867.         if (charset == LATIN1) {
  868.         escape = 2;        /* 0233 is graphic char on PC, etc */
  869.         continue;
  870.         }                /* Otherwise fall thru & print it */
  871. #endif /* ESCSEQ */
  872.  
  873.       default:
  874.         addchar(c);
  875.     }
  876.     }
  877.     if (!psflag) {            /* Done. If not postscript already, */
  878.     if (hpos)            /* if last line was not empty, */
  879.       addline();            /* add it to the page. */
  880.     if (page != 1 || line != 0) {    /* Add trailer. */
  881.         printf("EndPage\n%%%%Trailer\n%%%%Pages: %d\n",page);
  882.     }
  883.     }
  884.     exit(0);                /* Done, return success code. */
  885. }
  886.  
  887. void
  888. usage(x) int x; {            /* Give usage message and quit. */
  889.     int i;
  890.     switch (x) {
  891.       case 0:
  892.     fprintf(stderr,"textps: only options, not filenames, allowed;");
  893.     fprintf(stderr," use standard input.\n");
  894.     break;
  895.       case 1:
  896.     fprintf(stderr,"textps: invalid character set name\n");
  897.     break;
  898.       case 2:
  899.     fprintf(stderr,"textps: ambiguous option\n");
  900.     break;
  901.       case 3:
  902.     fprintf(stderr,"textps: option required after -\n");
  903.     break;
  904.       case 4:
  905.     fprintf(stderr,"textps: option requires an argument\n");
  906.     break;
  907.       case 5:
  908.     fprintf(stderr,"textps: invalid option\n");
  909.     break;    
  910.       default:
  911.     break;
  912.     }
  913.     fprintf(stderr,
  914. "textps converts standard input to PostScript on standard output.\n");
  915.     fprintf(stderr,
  916. "if standard input is already in PostScript format, it is simply copied.\n");
  917.     fprintf(stderr,
  918. "usage:  textps [ -h ] [ -v ] [ -c charset ] < infile > outfile\n");
  919.     fprintf(stderr,"  -h displays this usage message.\n");
  920.     fprintf(stderr,
  921. "  -v produces a page showing textps and PostScript version numbers.\n");
  922.     fprintf(stderr,
  923. "  -c specifies the file's character set, one of the following:\n");
  924.     for (i = 0; i < ncsets; i++)
  925.       fprintf(stderr,"      %s\n",csets[i].kwd);
  926.     fprintf(stderr,"  the default character set is %s.\n",
  927.         getname(charset,csets,ncsets));
  928.     fprintf(stderr,"examples:\n");
  929.     fprintf(stderr,"  textps < infile > outfile\n");
  930.     fprintf(stderr,"  textps -v < infile > outfile\n");
  931.     fprintf(stderr,"  textps -c cp850 < infile > outfile\n");
  932.     fprintf(stderr,"  textps -v -c next < infile > outfile\n");
  933.     fprintf(stderr,"  textps < infile | lpr (UNIX)\n");
  934.     fprintf(stderr,"  textps < infile > prn (DOS)\n");
  935.     fprintf(stderr,"textps version: %s.\n",version);
  936.     fprintf(stderr,"%s\n",copyright);
  937.     exit(1);
  938. }
  939.